home *** CD-ROM | disk | FTP | other *** search
/ Amiga CD-ROM Collection / Amiga CD-ROM Collection - Auge 4000 and Cactus and Demo Util.iso / auge4000 / 46 / lib / amiga / mods.a < prev    next >
Text File  |  1990-06-20  |  440b  |  39 lines
  1.  
  2.         ;   DIVS.A
  3.         ;
  4.         ;   D1/D0 -> D0 signed divide
  5.         ;   32/32 -> 32 signed divide
  6.  
  7.         section text,code
  8.  
  9.         xdef    __mods
  10.         xref    __divu
  11.  
  12. __mods:
  13.         tst.l    D0
  14.         bmi    ds10
  15.         tst.l    D1         ; numerator
  16.         bmi    ds20
  17.         bsr    __divu
  18.         move.l    D1,D0
  19.         rts
  20. ds10        neg.l    D0
  21.         tst.l    D1
  22.         bmi    ds30
  23. ds10n        bsr    __divu
  24.         neg.l    D1
  25.         move.l    D1,D0
  26.         rts
  27. ds20        neg.l    D1
  28.         bsr    __divu
  29.         neg.l    D1
  30.         move.l    D1,D0
  31.         rts
  32. ds30        neg.l    D1
  33.         bsr    __divu
  34.         move.l    D1,D0
  35.         rts
  36.  
  37.         END
  38.  
  39.